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ZXAppeal 15 a monthly 2068 PRGM..................... 15 
newsletter put out by the 

Vancouver Sinclair Users Group. 

For more information on the 

group and ZXAppeal see the backcover. 


"he interior of the 


‚QL 
š | 


motor תס‎ up to our part of the world for a looksee. 
Joan also sent along another very kind contribution 
to the 2068 library. This tape displays Joan's 
incredible virtuosity with the sound abilities of 
the 2068. If you want to hear the 2068 at its best 
get this tape from the library. 

...Fred N. sent along a Press Release from Silicon 
Mountain Computers letting all know that he's 
getting out of the commercial side of things TS. 
Fred made it very clear that he'll still be a strong 
supporter of our machines but that the return on his 
time was not sufficient to enable him to continue. 
These are the grim facts when you try to sell to a 
very small user base. 

..Jack Dohany continues to come up with 
ever-refined versions of mainstream software. His 
latest catalog is reprinted inside. Jack will be at 
the 'Fair in August in Portland manning the table 
right next to ours. 

..Grey & Clifford Computer Products is now Ed 
Grey Enterprises according to a Press Release 
received. Same address: PO Box 2186, Inglewood, 
CA 90305. Ed has that great bargain on modem 
cards as well as a fine Serial I/O interface, 
amongst other very nice telecommunications 
products. Ed will also be in Portland at the 'Fair. 
..are you looking for a back-up 2068 or maybe an 
SCLD chip for your present 2068? A little birdy 
told me that Eric Johnson, 249 N. Harden Ave., 
Orange City, FL 32763, 904-775-4935, has 
refurbished 2068s, guaranteed 30 days, for 
$50.00US and SCLD chips, price unknown. Eric is 
the proud owner of the 2068 in the clear plastic 
case you saw in the slides of the Indy 'Fest. Eric 
told me his uncle worked for a certain computer 
company in Waterbury, CT, and when the doors 
were shut he inherited a number of very large 
cardboard boxes full of all sorts of os stuff from 
the engineering labs. 

..Brooklyn Closeout Corp, 167 ‘Clymer St., 
Brooklyn, NY 11211, 718-963-2377, reports they 
still have some TS stuff 
left:2068+2040+2carts+3cassettes=$130 
-they pay the shipping; 2040=$20; 1000+16K=$30; 
2040 paper 3roll pk=$4; 48 roll box=$40. It sounds 
like these folks are prepared to haggle. If you 
want to give them a call before 8am(nite rate) you 
might even do better than these prices. 


When : 
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So how do you like summer so far...is that a tan or 
RUST! The guy next door seems to spend all his 
time on this big boat in his back yard. Lots of 
animals around also. Good time to stay 
indoors...with our favourite machines! 


Not much in the way of submissions to the 
newsletter this month. Harvey 15 back with 
another ‘Playing With...'. (If we can get 
hooked-up modem-wise, that is,...no luck at the 
time of writing. Might just turn out to be a verrrry 
skinny issue.) A couple of months back Fred N. 
passed to us "The Guide to Creating RLE Graphics 


on the T/S 1000 & 1500" by Greg Harder, of 


Denver, Colorado. This software is in the Public 
Domain and shows the generousity that will keep 
interest in our machines alive. We reprint the 
Guide with thanks. We also have a couple of 
other reprints you might like. 

++#++ + + + + + + + + + EE EE EF F F OE 3F Oe OE OE OE OF OE OE OE OE FE OE EE EE OE EE AX 


SE. 1 :. ຮ i ບັບ Ga DEDE Da 


..if anyone is interested in a copy of QL Easel V2.2 
in FRENCH, let me know. The tabless m/carts 
from Sharp's are labeless copies of the original 
software in other languages. I had Spanish, and 
French versions as well as British version V1.0. 

à flyer was received from A+ Computer Response 
recently listing the latest super specials for things 

E: 


-complete QL, with everything-—----$89 


-QL kit, no software—————— -—-—$75 
-QL chip set, all 6———--———-—--——$39 
-QL U.S. power supply--—-——-——-$15 
-m/carts, 10-pak——— -h $25 
-QL User Guide———————hk $10 - 
-QL Tech Guide-————————————$10 


-QL service manual $12 

This is not an advert for A+ but at these prices I 
think this will be their 'close-out' sale. 
this stuff is gone that will be all folks. 

..We received a nice card from Joan Kealy sadly 
informing us that she would not be renewing her 
VSUG membership because she was 'going on the 
road' in her mobile home and wouldn't have a 
mailing address. Glad to report that Joan plans to 
be in Portland for the 'Fair in August and then 


meeting This is the last meeting 


before the summer break 


The hardware group is meeting 
regularly. The current emphasis 
seems to be on printer interfaces. 
Harry Slot had an immaculate board & 
cable arrangement to display. Jim 
Horne 15 working on printer drivers 
to utilize with the Karl Brown I/O 
board. By the way, Rod still has 8 
couple of those boards available if 
anybody is interested. Jim has 
written drivers that are Memotext 
Version 2 & 3 compatible, a 
Universal printer driver & a Stock 
printer driver. Harry expressed the 
opinion that he thought the KB board 
layout was substandard. 

Bill Rutter said there was not 
much happening with the 2068 
library. Ian Mclean, the 2X81 
librarian, has gone & got a job, 
proving once again that work drains 
off enthusiasm. Harvey jumped in at 
this point & brought up the letter 
which he had written to SLIX about 
the database of newsletters project. 
They are willing to trade databases 
on 2068 wafadrives עס‎ QL-720K disks. 
There was some talk about how to 
arrange this. At any rate, Jim Horne 
& Gerd are taking over the 1 
librarian duties, now that Ian has 
resigned. Kevin Kerney has a lighter 
load of paper books now. He is still 
looking for interesting material. 

About this point in the evening, 
Glenn Read -- our new vice pres 


date.... 


-by your humble scribe 


The meeting was held upstairs in 
the boardroom as our regular room 
was taken by another group. There 
Was some question raised as to 
whether or not the Killarney folks 
know we are meeting there regularly. 
Gerd got the name 05 the community 
centre liason person 6 is going to 
look into it. 

The meeting was opened at 19:10 
when ລ diminutive voice asked, "Can 
I bring the meeting to order?" There 
were eighteen intrepid souls present 
and nine straggled in later. Gerd 
Started off by asking Rod Humphreys 


for the  Treasurer/Editor's report. 
Rod says we have Can$910.00 in ye 
olde credit union with sundry other 
suns to be added. Then with an 
ominous gaze about the room, he 
intoned "There are several 
outstanding memberships to be 
renewed." The Editor portion of his 
report consisted of a plug for the 


Great NorthWest Sinclair bash to be 
held in Portland this summer. He had 
some promos to pass around. 

At this point mention was made of 
the fact that it was Rusty Townsend 
who had arranged for פט‎ to use the 
boardroom when it was discovered 
that the regular room was in use. 


group. meeting in town & had a flier 
with their BBS phone number. By the 


way, CityLink is still down, altho 
the guys there say they are coming 
back...eventually. 


For some reason, at about this 
point Rusty explained that the way 
to get free mail service was to put 
your own address in the middle of an 
envelope & the desired destination 
in the return address position ແ 
mail the letter without a stamp. The 
laughter was general. 

We then had a slide show of Ken, 
the excumbent, Abramson's trip to 
China. T ue 

At the end of the meeting, Jim 


Horne mentioned that he is doing 
ZX81 hardware repairs as well as 
sundry other items. The meeting 


dissolved to one on one's. 


for various 


just thirty-five . 


Showed up to general applause. There 
was 8 fair amount of talk about the 
cheap modems which Glen's company 
will be making available. He says 


that Ryder's Computer Services, who: 


have a wide array of the weird & 
wonderful debris resulting from 
taking down mini installations, have 
moved. There was some talk about the 
prices they charge 
items. Rusty, the ~consumnate flea 
marketeer, explained that the way to 
shop was to have 
dollars in your wallet, when looking 
at the $40.00 modems for which they 
wanted $100.00. 


Harvey stood to tell the group 
about getting the IQLUG library 
disks. He also had some QL mags & 


Quanta for general perusal. He also 
mentioned that there was a Forth 
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BC CANADA USE {TQ 
1.555 Now featuring: 


META MEDIA PRODUCTIONS 726 WEST 17TH URNCOUVER, 
META MEDIA PRODUCTIONS ANNOUNCES G LINK 
s & CP/M files - 7 & 8 Bit Data support 


< UNARC & UNCRUNCH utilities for Hsdo 


- Full ? & 8 Bit Paritu support - Expanded Editor functions - 
String Search, Goto, Append File - Edi table default path/filename - Toggle 


- Supports Multitasking 6 
- Integral Editor - Xmodem & 


- 64 or 88 Columns - 2008 printing for speed = 
XON/XOFF handshaking - Supports Multitasking & 


. Expanded Memory - Directory of 


featuring: 


display of Control Chars And Stil! 


Expanded Memory - Dial Redial 
Ascii file transfer 


any Device tells you File Type & Length - | Editor for Capture Buffer, 


then Print, Save or 


or Document Creation Edit your session; mark a block, 


Ascii Transfer it Makes it easy to mark an interesting item & transfer it to 
another BBS Store up to 46 Telephone Numbers, 20 Signons/Passwords per setup 
file Edit phone numbers, BBS names & Signons painlessly to create setup file 
Load another setup file for even more numbers & passwords. Complete 
documentation. Extensive use of Menu/Quick modes for Novice 6 Expert. Things 
are made easy with stored File Device, Printer Device & Baudrate Configures to 
any modem. Set 8 seperate modem commands, parameters & Messages; Dial, 


Reset. Supports all QL Baudrates 1888 Machine Language for 


Immediate Redial, 


Speed! Works with a JSU, JM, MGUK ROMs Includes the Utilities: Unsqueeze, 


Q LINK 1.555 - US$ 29.95 + $3.00 shipping 
18.88 + $2.08 shipping 


Library, Filters; UNARC & UNCRUNCH 
The Fine Print : 
ו‎ for registered owners - 


[ຂໆ on MOY or 5.25" disk [specify tpi]‏ | סקט 
META MEDIA ae 726 WEST 17TH VANCOUVER, BC CANADA VSZ- 1T9 ---------‏ 
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CREATING RLE GRAPHICS ON TH 


-⁄= 1000 AND . 15090 


By 


Gregory C. Harder 

BOX 3‏ .0.ק 

DENVER, COLORADO 
60°06 


Uncopyrighted 1987 
This is in the public domain, feel free to distribute. 


| *NOT IO BE SOLD FOR PROFIT* 
INTRODUCTION l 


This guide has been prepared in order to aid owners of T/S 1000 or T/S 1500 computers generate RLE graphics. RLE (Run Length 
Encoded) graphics is a aethod of transaitting encoded graphics inforaation to your coaputer. Any computer capable of high 
resolution displays of at least 256 by 192 pixels can display RLE graphics, the T/S 1000 and T/S 1500 are no exceptions. All 
that is needed is the right coabination of hardware/software and an RLE decoder programs. This guide will describe a method 
of decoding the raw RLE data. I£ you follow the instructions you too can produce RLE graphics on your CRT terainal and 
printers, 


HARDWARE REQUIREMENTS 


Tne aain hardware requirement for both the T/S 1000 and T/S 1500 is a suitable aaount of RAM. This aust include STATIC RAN 
in the Bk to 16K area, which is needed to produce the high resolution displays. This could be, for example, the “HUNTER 
BOARD" or "SCRAM BOARD". In addition at least 32K of user RAM aust be available, i.e. 64K RAMPACKS. 


[+ you intend to download your own RLE files froe a reaote terainal you will, of course, also need a aodet. 


RLE files are fairly aesory intensive and can range from JK to 28K or aore in length depending on the picture coaplexity. 
This seans, in the case of the T/S 1000 or 1500, that the largest whole file you can capture at one tiae is slightly less 
than ໄຂ້. In order to do this the entire 14K to 32K area aust be open for the RLE download. The ideal scenario then is to 
run your tersinal software below the 16K boundary or above the 32K boundary. However, assuaing that the lower STATIC RAM 
will be reserved for high resolution displays then the terainal program aust be placed above 32K. 


In order to run machine code above 32K on the T/S 1000 you will need to install the Mi NOT aodification, this is not 


recuired on the T/S 1500. If you do not install the Mi NOT aodif:cation tien the aaxiaua RLE file you can download will be 
on the order of 10K, the regaining RAM will be occupied by your terainal progras. 


SOFTWARE REGUIREMENTS 
The sethod for decoding RLE graphics described herein is dependent upon the software used by the writer. Üther prograss say 
work, but I leave it up to you to aake any changes in the decoder which this aight necessitate. 


The terainal program used is ZX-TERM-80. The eain advantages to this progras are the high resolution display modes, user 
friendliness, and relocatability. Relocate 11180 above 32K to open up all of the 16K for RLE data downloads. 


The RLE decoder progras needs a sethod for plotting the RLE picture. The RLE decoder therefore requires a copy of SR" 
HIRES EXTENDED BASIC (SHREB). SHREB is an alternate operating systems which persits full control of the high resoluticn 
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FROCEEDURE 


The first thing we need to da is get an RLE file ta decode. LOAD 11180 into your computer fallow the start up proceedure and 
relocate to 32768. Find 3 BBS with some RLE files and download one. Hang up, the RLE file is now stored in the 0 REM DATA 
buffer, SAVE the file a couple of tiees ta tape. 


The RLE decoder needs to have the RLE data transfered to the address starting at 22768. We could add a BASIC PEEK/POKE 
program to do this, but this can be very slow, especially on larger RLE files. The first thing we'll da is add a short N.C, 
routine to do the transfer in a flash. 


LOAD the 0 REM DATA buffer with the RLE file. Once the file is LOADed, POKE 18510,10. Naw look at Listing 4, this is the 
“M.C. we want ta preface all the RLE files with. The 1 REM line aust always be exactly 21 bytes long. Use the decisal dueo to 
FOKE the cade into the REM line or, alternately, use the key board routine described in Listing 4. The key board aethed is 
most convenient especially if you will be doing alot of files. RAND USR 14514 will transfer the RLE file to the 32K area. 


face the RLE file is stored at 22K, LOAD SRAM HISRES EXTENDED BASIC. Remove any extraneous lines and also delets line 2 is. 
we will rot need the 64 character print routines. Then FOKE 18080 , 208 and 18081,73. Since SHREB is LOADed we could enter a 
- decoder antiraly in BASIC, if desired. Listing | is such a program, enter it then RUN to decode the RLE fila already stored 
-at 32K, however, be prepared to wait 10 to 10 sinutes to see the final picture, in FAST eode. 


A better aethod is to use the aachine code RLE decoder shown in Listing 2. To enter this inta SHREB delete all the BASIC 
decoder lines then create a 2 REM line of at least 131 bytes. Again, use a POKEr program to enter the decimal dump. Check 
your final product with the checksua routine shown. Finally, enter the lines froe Listing J which is the BASIC portion of 
the M.C. decoder. SAVE to tape a couple of times then RUN. If everything was done correctly your RLE picture should be 
cospleted in under 30 seconds, in SLOW aoda. You can even watch the picture being forged. 

Tha M.C. decoder only returns ta BASIC after the entire screen, 192 izei rows, has been filled. Under noreal conditions an 
SLE decoder should stop when a certain sequence of control codes is encountered at the end af the RLE file. This «35 not 
dane on this M.C. decoder for a special reason. 


45 noted above, the aaxiaus whole RLE file you can download is slightly less than 15K. However, files over LOK cin ba 
partially downloaded. If the RLE file is not too auch over 16K then sost of the picture wiil still be recovered. Obviously, 
files such larger than 16K aay lose a significant portion of the picture and aren't worth downloading. 


nce it is possible to download partial PLE files the ending control code sequence will be aissing, this explains why tha 


5! 
dacoder does not test for thea to locate the end of the file. 


Sate FLE files are seant to display only 256 by 178 resolution (T/S 2068 displays for exaaple) since the ending control- 
codes are not used by the decoder the bottom 16 lines of such a picture say not be correct. [f it doesn't look right just 
use the SHREB scroll routines to erase the bottom part of the picture and then recenter it. 


REFERENCES 
- Breunung, Gerd, 1986, 1000 One Chip Mad-A Built-in NVM: Syncware News, Vol.4,#1, 9-18-21. 


&rticle details construction of an internal STATIC RAM in the SK ta 16K area for the T/S 1000. Can be used for high 
resolution displays. ° | 


Fischer, Fate, and [shi, Steve, 1987, The Guide to T/S Telecosaunications. 
Harder, Gregory, 1986, 480112 Fix: Syncware News, Val.4,M, p.7. 


Run WRX16 with 64K RAMPACKS. 
Hopkins, Chris, 1986, Standard for RLE Files: TIME-X-CHANGE BBS download, User area DS:RLESTD.TXT 
Leake, Stan, 1987, Run Length Encoded Graphics: 1186 Designs, Vol.3,82, pp.17-20. 


RLE decoder for the T/S 2068 coaputer. 


software. 


Qliger, John, 1985, Run T/S 1000 Machine Code in High Raa: Syncware News, Vol.2,85, p.10. 


1986, WRX16 HI-RES for the T/S 1000: Syncware News, Vol.4,82, pp. 13-18. 


Article details how to install Mi NOT sodification. 


Kigter, Wilf, 


Describes high resolution operating systea for the T/S 1000. 
RESOURCES 


Silicon Mountain Cosputers 
C-12, Mtn. Station Group Box 


Vil 1 


Nelson, BC 


Canada 


Easily modified to allow for two switchable banks of BK STATIC RAM or a RAM-EPROM combination. 


SCRAM BOARD- NVM, BK to 16K, STATIC RAM Board for the T/S 1000 or T/S 1500. Can be used with high resolution 


[X-TERM-B0- High resolution tersinal program for the T/S 1000-1500. 


SRAM HIRES EXTENDED BASIC- High resolution extended basic for the T/51000-1500. 


Mi NOT ADAPTOR- Al NOT aodification to run B.C. above 32K. No trace cutting or soldering, for T/S 1000 only. 


001165 of other quality high resolution and not so high resolution stuff for the T/S 1000-7181-T/S 1500. 


Faster "cMullin 
2340 Queen St. E. 


ME 163 


Toronto, Ontario 


Canada 


Big-Printer SINCARTIST- Print those RLE screens to a big printer. 


8/1/N 24hrs. 


RLE FILES 


213-323-3922 


TIME-X-CHANSE 


Cospuserve 


THE ZX-TERM EXCHANGE, c/o "Nicolson Nightine Network", (604) 354- 
4666 1800-0900 each night, all day Sunday. ພາບ] 


Listing 1: RLE DECODER BASIC LANGUAGE VERSION. 


"LET ລະລ+1 


LET C=PEEK R-32 
IF C<=@ THEN GOTO S650 
LET XsXeC 
IF X«z255 XE EN GOTO 550 
LET ספסם-<*=א‎ 

| LET "ל‎ 


IF C<0 THEN STOP 
LET 1 


LET C=FEEK R-32 

IF C«e ibo STOP 

LET AzA+ 

IF 9 THEN coTO 500 
LET 0 


IF X<=255 THEN GOTO 668 


LET ססם-*=<‎ 
LET Y=Y-1 


IF USR HR THEN PLOT X,Y 


LET D=D+1 

LET <=1 

IF D= THEN GOTO 509 
GOTO 632 


REM FAST 

. REM RLE DECODER, MODIFIED 
FROM FROG. IN VOL. 3 
NO. 2 OF TIME DESIGNS ~ 
MAGAZINE. Ë 

REH RLE PICTURE CATA MUST: 


OR 


START AT 32763, 


CHANGE VALUE AT LINE 


LET A=A+ 


60700 08 
LET A=A+ 


GOTO 59 


420. 
LET ຖຣ 808 
IF USR HR THEN CLS 


- IF USR HR THEN RUN 
"LET 


3 

LET 9 

LET +1 

IF PEEK A<>71 THEN 


IF PEEK A<>71 THEN 
IF PEEK A<>72 THEN 


IF PEEK ຕເ: ?2 THEN 


-isting 2: RLE DECODER MACHINE CODE VERSION. 


ADDR HEXCODE NAME HNEHONIC ADDR HEXCODE NAME MNEMONIC 


== = גב‎ xz שב‎ zz IE : EE ms ສະ zz ກະ חצ‎ zz א = 20 22 אב‎ s = = = = חצ‎ ₪ = <: +: 
אש == שר‎ == mg GE אש‎ sz x=. חש שה‎ = = = = = = = = = = = == 
` 


4EQ6~B7 REM2 OR A 4ED1 7E LD A, CHL) 
4E87 1 08 C 4EDe D620 SUB eO 
4588 AA ם אסא‎ 4ED4 23 INC HL 
uEBS 8 SBC 5 4EDS 2805 JR Z NEXT 
4EBA Ag אסא‎ ₪ 4ED7 1600 LD D,OO 
uEBB AA XOR D 4EDS O4 BIT> INC B 
4EBC AG XOR B 4EDA OS DEC B 
uEBD BY OR H 4EDB 2813 JR 2 SKP1 
4EBE A9 אסא‎ ₪ 4EDD ES PUSH HL 
YEBF AA אסא‎ D 4EDE 60 LD H,B 
uESO B7 | OR 4 | 4EDF 69 210 L,C 
uES1 76 HALT 4EEO 010001 LD 86,0100 
4ES2 76 HALT uEE3 7 AND A 
4E93 210080  DCOD LD HL,STOR . 4EE4 EDY2 SBC HL,BC 
4ES6 010000 LD BC,0000 4EEG 44 LD B,H 
uESS 1EBF LD E,BF 4EE7 4D ID LL 
uESB 7E LUP1 LD A, CHL) 4658 7 LD H,A 
uESC 7 CP 47 uEES 3EFF LD A,FF 
4ESE ຂ803 JR 2 LUPƏ 4EEB 1D DEC E 
4EAO 23 INC HL 4EEC BB CP E 

ແລດ] 8 JR LUP1 4EED 7C LD A,H 
4503 7E LUPƏ LD A CHL) 4EEE 1 POP HL 
4EAY 8 CP 46 l 4EEF C8 RET Z 
4EAG 2803 JR 2 INC> 4EFO FS SKP1 PUSH AF 
4EAG 23 INC HL 4EF1 ES PUSH HL 
YEAS 18F8 "JR LUPe 4EFe DS PUSH DE 
4EAB 23 INC> INC HL 4EF3 CS PUSH BC 
4EAC 7E NEXT LD A, CHL) GEFY 3 LD B,E 
4EAD D620 SUB 20 4EFS 1EFF LD E,FF 
uEAF 17 JR 2 CONT 467 1 CALL CK-Y 
4581 381D JR C CONI 4EFA CDD141 CALL PLI? 
4EB3 ES PUSH HL 4EFD 1 POP BC 
4EBY 0 LD H,00 . uEFE 1 POP DE 
4EBG GF LD 8 uEFF 1 POP HL 
4EB7 09 ADD HL,BC 4FOO F1 POP AF 
6588 44 LD B,H 4FO1 14 INC D 
4EBS 4D ເວປ) 4-00 03 INC BC 
4EBA OS DEC B 4-03 BA CP D 

4EBB O4 . INC B — ..—*«4FO4-28^8 JR 2 NEXI 
4EBC El POP HL 4506 1 JR BIT> 
4EBD 2811 JR Z CONT 

4EBF ES PUSH HL 

4ECO 80 LD H,B ` 

4EC1 69 Ln LE 

4EC2 010001 LD BC,0100 

4ECS A7 AND A 

%566 EDY2 SBC HL,BC 

4EC8 44 LD B,H 

4ECS ແໆ LO ເ 

4ECA 1D . DEC E 

4ECB 3EFF - LD A,FF 

4ECD BB CP E 

4ECE El POP HL 

4ECF CB RET 2 


“EDO 3 CONT INC HL 


ACOR ເເ IMAL DAT 

22122 1183 177 170 155 

170 153 138 $153 103סכ 

20114 1118 33 e 123 1 

22120 16 38 131 126 

20126 148 3 35 24 

280132 $254 72 40 3 : 
23138 $248 35 155 214 3: 
23144 31 55 29 229 38 e 
20158 1111 3 63 77 5 4 
29155 $225 48 17 229 96 5 
23152 $1 9 i 187 237 8 
23153 $oa 77 23 62 255 7 
23174 $225 2208 35 126 214 32 
20180 |35 40 21322 0. 4 
20136 [5 43 19 229 06 65 
20192 1 ດ 1 167 237 66 
20193 163 77 103 62 255 29 
20204 $137 i124 225 200 245 22a 
20210 $213 137 57 30 255 295 
29215 $15 55 285 209 65 3 
בבבסב‎ $2ag 225 241 2 3 186 
20228 140 155 24 Zgo 


CHECKSUM PROGRAM 


05908 ET X=2 

9510 FOR N=22122 TO 2923 

9520 LET X=x+PEEK א‎ 

9530 NEXT א‎ 

9540 IF *<+;14941 THEN FRIMT "CHE 
CKSUM ERROR" 

coad REM 


CHECKSUM=14041 


. Listing 3: BASIC PORTION OF M.C. RLE DECODER. 


= Fig. 7:JPPANBRL ,3| ແ-[/5 2 
10 LET HR=134Ə9 ; Ce" US 2040 
20 IF USR HR THEN CLS 
30 IF USR HR THEN RUN 
48 IF הפע‎ 28115 THEN 

REM >RUN DECODER: 
SO IF USR HR THEN LPRINT I; 
60 IF INKEY$="" THEN GOTO SQ 
78 IF USR HR THEN RETURN 
aa STOP T 

7299 REM zzz SHREB SAVE ++++ 

8800 IF USR HR THEN SAVE “RLE=DE 

CODER",P 

aeio GOTO 8122 

3100 REM ++++ TIMEX SAVE ++++ 

8110 SAVE "RLE.DECODEB" 


. r 
|) 


וו 


| 
| 


ໄ 


ສ‏ לש 


3120 LIST 20 
agga REM א‎ . 
RLE DECODER 
B.C, HARGER 9/87 
STORE RLE DATA AT 
$3300 = 32768 
BEFORE RUNNING. 
2000 REM 9 


Fig. 2:8061C. GI E-T/S 2040 


TRANSFER 


HE COCE NAME MNEMONIC‏ בחש 
TRAN LD BC. (LEN?) ;Rea. BCslensth of data REH‏ סבבבפם4ת= 4022 
CE [£C EC Hdjust to exact length nf‏ 7% 
C5 ree EC ;RLE data‏ 4057 
CE DEC EC‏ 4055 
igz2 OS DEC EC‏ 
OE DEC EC‏ 4052 
OE DEC EC‏ 2056 
DEC EC‏ 5 4050 
OE DEC BC : |‏ 4050 
LD HL 52 ;Res. HL=Start addr. of RLE data‏ 1050ב 0955+ 
LD DE,DEST Reg. DEsstart addr. of storage‏ 110050 4051 
LDIF Transfer RLE data to storage‏ 9 +>2+ 
‘SES C3- ແ໌ Revurn to basic‏ 
HALT |‏ 75 4827 
QQ HOP‏ 4025 
ດຊ LO ຕ, (BC)‏ 4092 
LEN> ADC A,B‏ 5 4895 
ZE59 LO L,EA‏ 4095 
HDD HL.HL‏ ` 4020-29 
LD H,39 `‏ פבסם 403E‏ 
i BASIC part of routine.‏ 
Decimal Dump |‏ 
FEM 63 UE T = ee te .. 9*9 ae 00 00 0h 5 2H‏ 1 " 4 0 
Starting at address 16514. pi ₪ GOSUB TAN T 2‏ 
M i E 18 REM DATA‏ 
RAND USR 186514‏ 20 11 11 11 11 62 154 75 237 
ii ii 53 165 64 ir 50 STOP‏ 1 11 
SAVE “DOLLAR.RLE”‏ 40 1 175 237 128 0 

Ending at 3030655 5 
This routine can be entered 
directiu fros the keyboard use 
the following key press sequence 
KEY FRESS RESULTS 

4 1 , SHIFT } 

B EE: SPACE SPACE 
š 5 iu SHIFT 8 G MODE 
ກເ. ຂວ SPACE | INVERSE SPACE 
SHIFT 5 CURSOR LEFT 7-ל : מכ‎ 
SHIFT Q THEN DELETED udi acon 
ຈາ ຈ": at SHIFT 5 CURSOR LEFT 

pi E EE SHIFT ë CURSGR RIGHT 

SHIFT ENTER L HODE - r INVERSE K 
SHIFT ENTER F MODE SHIFT ENTER L MODE ` 

2 END SHIFT ENTER. F MODE 
SHIFT P T 
SHIFT ຂ Š 
= £ P .. m: è 
₪ E Done, press ENTER to put line 
SHIFT P z: into listing then; 
ZH 2 / + > 
- 2 8 POKE 16515,75 

= = - 
= ^ = mane Check to see that 1 REM looks 

6 š INVERSE 7 exactly like the 1 REM shown ir 

SHIFT ENTES L MODE the 1150189 above. 
SHIFT ENTER F MODE 

T RND 
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ENCODING A BINARY SCREEN FILE 


Now that we know how to decode RLE files perhaps you would also like to be able to upload soee of your own aasterpiecas, 
that you've created with SHREB, using the RLE standard. Again this is not too differcult. As with the decoder you will need 
à ainiaua of 64K of RAM. 


FROCEEDURE 


The first thing you have to do is have your graphic creation stored in the SHREB High Resolution Display File, frog 8192 ta 
14355. Now look at Listing 3, this is the ENCODER. You will have to store this routine in your STATIC RAM board to use. You 
could use the deciaal duso to POKE the values in each tise, but this is prone to errors. A better aethod would be to use 3 


BASIC program with saae pseudo-"DATA" statements to hold the code and POKE it in automatically. I leave this chore up ta 
you. 


As shown, the ENCODER is located at 16129, you can put it at other locations if you want, it is free of CALLS and JUMPs. Da 
not store it soaewhere in the HR-DFILE though' 


What will happen when you CALL the routine by RAND USR 15128? The first thing it does is aunch on your binary screen data 
and transfora it into suitable RLE data. The RLE data is then stored at address 32768 and upwards. Once all the screen data 
is processed it will then autoeatically create a 0 REM DATA line of suitable size to hold the ALE file. If your RLE file is 
tog large ta store in 16K an error report & will result-"out of semory". If the file is aot too large then it will be 
transported to the 0 REM DATA line. Once in the 0 REM DATA line the file is in a suitable fore for uploading by 11180 as an 


SLI] file to any reaote terminal, It can then be decoded by any RLE decoder prograe which tests for the proper RLE header, 
such as the one presented earlier. 


As an evieple, once the RLE file is stored in the 0 REM DATA line SAVE it a few tiaes to tape, then LOAD 71180 and relocat2 
ta 12758. Before going on line, relJAD your RLE file. When it's LOADed re-enter 11180, call up a BBS and do a noreal upload. 


Tne eglaad will consist only of the encoded picture data. Also, your RLE file contains the proper ending code sequance. 


Fs a ncte, before running the encacer you should NEW the computer to clear the entire BASIC area for the saxieus possible 


SLE file. ^ u _ 

3=15 7 INC (OFF>) 

3F48 7 LC A,7E 
LISTING S: FEE ENCODER PROGRAM. 5=4₪ 7 CP (OFF») 

/ 3F4D 280A JR NZ NXBT 

3F4F 77 LUPI LO (HL) ,R 
= “CONDE NAME M SNIC 3F50 23 INC HL 
WS HEXCODE NAME MNEMONIC SFS1 1 UD 06 a 
3FQO 00238= NCOD CALL FAST בכהב‎ 8 LO (ON »),C 
3-03 FD3832JXT oJ LD (FLGB) ,60/ ו‎ ER arr M eR 
לוש‎ mez: . ຕ້ < 2 a. 
=a re LU MOSTOR 5553 "03533  NXBT DEC (LOOP) 
60ם35‎ 98 LO DE,HRDF Sree Seco ນ BITS 
3FOF FD7135 LD (ON »),C FERS 2. En mi 
כ2כ1שב‎ 7 o (OFF»!,C Feo rDCBS285 BIT+ RES QO, (FLSS: 
3715 3818 D (HL) ,1B 5554 FOC8324E BIT 1, (FLGB) 
-1=ב‎ 3 INC HL SFES 3 JR NZ SKP2 
3F15 3847 LC (HL) ,7 SFSA 98 LO A, (OFF>) 
בו-3‎ 3 INC HL FEC 77 LO (HL),R 
SFAR 26483 LO (HL) ,43 SF6E 7 LD (OFF»),C 
3510 2 INC HL -FFL Z3 ors tn : ; PH, P 
3=1= FD383308 BYTS LD (LOOP) ,@Ə 2F7Z FDCB38CE SKP2 SET 1, (FLGB) 
3F22 EB EX DE,HL 3F78 FD2435 INC (ON >) 
3=23 45 LD 8, (HL) 3:79 367₪ : LD A.7E 
3F24 2: INC HL SFTB FDBE3S CP (ON >) 
3F25 3 LD 8 275 28CF JR > 1 
3F27 BC CP H 2326 7 JR NXBT 
3F2a EB EX DE.HL ZF 3618 END» LO (HL) ,8 
3F 2282357 JR Z END» 2=34 2 INC HL 
3F28 C819 BITS RL SF2S 3647 LO (HL) ,7 
32 1 JR NC BIT+ 2Fa7 23 INC HL 
3F2F FDCB328E RES .1, (FLGB! 2-35 86 LD (HL) , 4E 
3333: 43 BIT O,(FLGB! FR 3 INC HL 
3F37 2008 . JR NZ SKP1 SF2B 910030 LO BC.STOR 
335 408 LD A, (ON >) 2F3E AT AND A 
3F3C 77 LD (HL) ,A SFSF ED42 SBC HL,BC / 
330 586 LD (ON >) ,6 3F91 ES PUSH HL ° 
3=40 23 INC HL 


3541 FDCB3ECS SKP1 SET Ø, (FLGB) 


ACDR = ຖາວ DAT 
zi 161283 ] 205 25 s 25354 se 
SFəz 10009 LC ,סש‎ 15154 do 14 52 33- 9 128 
SFOS ag ACO HL, BC 16140 $17 ດ 22 253 113 4 
306 44 ED BA 16146 ] 253 113 ZS S4 27 5 
F97 4D LD C.L S 16152 $54 71 35 S4 72 55 
3F98 2177480 LC 7% 165153 $252 54 Si 8 235 79 
sFaB CS PUSH BC 16164 #35 62 S56 188 235 4a 
srac 3 INC BC 16170 $887 202 16 48 4ວ 3 
3006 3 IHC BC 16176 1203 58 142 253 203 50 
SFQE 3 INC BC 16162 ]70 32 8 Sa 54 4 
aFaF 3 INC BC 16188 ] 110 253 113 54 35 3 
2FAQ פספפסס‎ CALL BCSP 16194 $203 Sa 198 253 52 55 
FAS C1 FOF BC 15200 162 126 253 190 55 32 
SFA4 3 INC HL 46205 $18 339 35 113 253 113 
SFAS 23 INC HL 16212 $54 253 113 SS 35 253 
FAG 38602 LD (HL) ,ລວ 16213 $53 51 22 205 24 199 
SFAS 3 INC HL 16224 $252 2283 Sa 134 253 3 
בם-3‎ 36aa LC (HL ,08 16230 $50 78 32 8 ແຊ ss 
FAB 23 INC HL = 16225 ]64 119 253 113 55 5 
FAC 71 LO (HL!),C 18242 $253 203 50 206 255 52 
םב-3‎ 23 INC HL 16248 154 62 126 253 190 5 
3FAE 8 LD (HL) ,5 16254 $40 207 24 215 4 7 
SFAF 22 INC HL 16260 $835 54 71 35 54 7 
SFB@ 36EA LD (HL) ,Eñ 16265 $35 1 e 128 167 237 
SFB2 3 INC HL 16272 #65 223 1 2 0 ໆ 
SFBS 3623 LO (HL? ,23 16278 8838 77 23 124 64 - 197 
SFBS 3 INC HL 16224 š2 3 3 3 205 8 
6ם"3‎ 3525 LD (HL) סם,‎ ie2eca ša 193 25 35 54 
SFBS 23 IHC HL 18298 $35 54 e a5 113 35 
3FB2 36323 | ₪ (HL) ,33 15302 $112 35 ແແ 234 3 54 
SFBB 3 TNC HL 16303 141 25 ແເ 33 35 54 
SFBC 32626 Lo (HL) 6 16314 157 25 ແແ 33 35 54 
SFBE 23 INC HL 183280 1113 35 54 118 35 3 
SFBF 36768 LD (HL) ,75 16326 $235 22 a 128 237 176 
3FC1 23 INC HL 16332 827 23783 118 64 2 
3FC2 3676 ED. (HL1,768 16338 $12 64 43 S4 118 195 
SFC4 23 סאד‎ HL 16344 $43 15 
SFCS C1 FOP BC kam וו‎ 
3-06 EB EX DE,HL 
3-07 8 LD HL,STOR 
aFca EpBo | IR 
3FCC 18 CEC DE A 
aFCD EDS53754d83 LO tFEND} =ם,‎ CHECKSUM PROGRAM 
3:01 2AAC4A LO HL, (DFIL: 
3-04 28 CEC HL 
SFOS 3676 LO (HL) ,6 asoc ET x=Q 
3FD7 CS32BüF JP SLOW 9510 FOR N=18128 TO 16345 
i 9520 LET X=X+FEEK א‎ 
9530 NEXT א‎ 
S540 IF X«o»298211 THEN PRINT "CHE 
CKSUM ERROR" 


₪ 1 


a =] 
/fig. &:LEGPARD.PLE-T/S 2040 


L2 


` PLAYING HITH ELECTRICITY ——— orn -by Harvey Taylor -May 31/98 
A chance remark in a conversation last month reminded me how utterly I 
confusing | found Channels & Jobs when | first started pulling and pushing 
the guts of the QL. Well, in general, channels are how 0005 keeps track 
of which Job (=Multitasking Program? is using which system resource for 

how long. What does this mean in the particular? 

When you first start to program the QL in SuperBasic, you are introduced 
to the construction “fn” -- where n is a Superbasic channel number; 
eg. PRINT#2, ‘Hello’. In SuperBasic you can even get around this by 
using the default output channel #1. In machine language, everything is 
done with channel numbers - everything 0005 legal, that is. So what is a 
channel number? | 

If uou take a look at the various System Variables which 0005 uses, you 
will come across one labelled SU CHBRS which is described as 'a pointer to 
base of chanre! table’. Now we have two questions; what is the channel 
table? There is a related SU CHTOP which points to the top of the 
channel table. | | 

When you have a question about a computer (system), you can look things 
up in a reference book, such as the QL Technical Reference Guide, -or 
you can get the system to tell you itself. 1f you write a short program such 
as Listing 1, uou will get a couple of addresses and a whole bunch of 
negative numbers. 


166 REMark Listing 1 
118 REMark Look at Channel Table 
128 SU CHBRS- 153968 
138 SU CHTOP- 163964 
148 Base.of chan table = PEEK | 650 CHBRS) 
156 Top.of chan table = PEEK LSU. CHTOP 4 
168 FOR ADDR = Base. of chan table TG Top.of.chan table STEP 4 
17@ PRINT “Addr =°; ADDR,” contains ';PEEK LXRDDR) 
186 END FOR ADDA 
186 STOP 
The negative numbers indicate that the location is unused by 0005. The 
addresses on the other hand are pointers to Channel Definition Blocks. Now we 
. have three questions; what are Channel Definition Blocks? Let's take a look. 
106 REMark Listing 2 
118 REMark Look at Channel Definition Blocks 
128 SU CHBRS- 163964 
138 SU. CHTOP- 163964 
148 Base of chan table = PEEK | 650 CHBRS) 
158 Top.of chan table = PEEK | 650 CHTOP 4 
158 FOR RDDR = Base.of.chan table TO Top_of_chan_table STEP 4 
179. CDB=PEEK_LCADDR) = 
188 IF COB > 8: GO TO 6 
198 ^ PRINT ‘Addr -';RDDR,^ contains ‘;COB 
200 PRINT ‘Charmel Definition Table @’; 8 
210 PRINT “COB Length -';PEEK LCCDB) 
220 PRINT “Driver addr-';PEEK LCCDB*4) 
230 PRINT “Owner Job -';PEEK L(CDB48) 
240 PRINT 'ReleaseFlag-' ;PEEK LCCDB* 12) 
290 PRINT ‘Channel Tag=’ ;PEEK_HKCDB+ 16 ) 
200 PRINT “Chan Status- ' ; PEEKCCDB* 18) 
200 -PRINT ‘Stored Act -';PEEKCCDB- 19) 
288 PRINT ‘Waiting Job-';PEEK L(CDB*20) 
290 PRINT ——— V ” 
398 END FOR RDDR 
318 STOP ` 


imbedded in Listing_2 is the structure of the basic Channel Definition 
Block. Some channels such as Serial have added information tacked onto this 
basic structure. Devices with a Directory structure have other information as 
well. 

We are nearing the heart of 0005. Notice that one of the elements of the 8 
is called Channel Tag. Everytime 0005 opens a channel, it assigns that channel 
a unique tag. This tag begins at 8 and counts up to 32K. The Tag is used as 
part of the Channel Number. Note that the Channel Number is also called the 
Channel ID. The other part of the Channel Number is an offset in the QDOS 
Channel Table. 

ie Channel ID = Channel. Tag : Offset in Channel Table 
where both the Tag and the Offset are 16 bits, ie. WORDS. 

How we know what a Channel Number is to 0005, but what of the "n^ 
construction used by Superbasic? This number is an Offset, as well, but in a 
table which Superbasic maintains. in general, the base of the entry for 
Superbasic Channel "sn" is at [(Xn*Entruy length? + 
Base of SuperBasic chan tablel. Note there are two channel tables involved; 
the QDOS channel table & the Superbasic channel table. The length of each 
entry in the SB Table is $28 (-48d5. The first element in the SuperBasic 
Channel entry is the QDOS Channel ID. 

If uou were uriting a machine language extension to Superbasic & uou wanted 
to be able to use Superbasic Channel numbers with your extension, how would 
uou get a hold of the appropriate Channel 1D? 


% 
START MOVEQ 6 + DEFAULT CHANNEL 
CHPR.L 5 * ANY PARAMETERS? 
BEQ.S  GET_CHID * IF No: USE DEFAULT 
MQUE.M CR GTINT,R2 + USE A VECTOR UTILITY 
JSR (R2) * TO GET THE NUMBER 
BNE ERROR 
HOUE.H  8(R6,R1.L2,D6 * GET THE CHAN “#ກ“ FROM STK 
* . 
GET_CHID 
HULU +0 = CALC OFFSET FRON CH BRSE 


RDD.L  BU_CHBASCAE),D6 * D6- OFFSET FROM BU. STRRT 


CUF.L 50 LCHTOP£865,D6 * IS IT STILL IN THE TABLE? 
BHI ERROR = 
MOVE.L &{AG,D6.L>,AB  * Get the CHAN_ID 

* 

There ars a couple of things about this fragment | should explain. First 
off, this code will be executed by SuperBasic and so the Register R6 will 
point to the Ease of that JOB. This allous all the SuperBasic addresses to be 
referenced relative to R6 and then QDOS can move the job around and all it has 
to do is change AG. Secondlu, on entry to a machine language extension 5 
points to the End of the parameters and A3 points to the Start. CR GTINT is a 
QDOS utility which will fetch an integer parameter(s) from the Superbasic 
interpreter for you. 

| want to try to give you an idea of how the system works. Let us say that 
you are opening a Superbasic channel with a command like “Open*3,scr_". 

You may have noticed that one of the elements of the Channel Definition 
Block was labelled Device Driver. Each device type (eg. SER, MDU, NET, PIPE) 
in the machine has a Device Driver which is assiqned when the device is 
initialized & which 0005 keeps track of in a list in the system variables. 
Associated with each Device Driver, as well, is another definition block 
called a Physical Definition Block. The PDB and CDB are manipulated by the 
Device Driver only. There is one PDB per ‘device & one CDB per channel. There 
is thus a hierarchy of Devices, PDB's, Device Drivers 6 00075 which 0005 
orchestrates for the Jobs. 
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Hhen gou issue gour open command, it will be interpreted bu SuperBasic & at 
some point, after the line is checked & all the parameters collected, a sustem 
call will be made using TRAP *2 - ]0 OPEM with certain values in the 
registers. This Trap will invoke the Device Driver for each device until one 
of them is successful or until it reaches the end of the list. The Device 
Driver must contain seueral sections, one of which handles opening channels, 
another of which closes channels & another of which handles input & output. If 
you are dealing with a Directory Device, the driver needs to be able to do a 
Format, as well as take care of some of 0005 “ຂ private concerns (freeing slave 
blocks). The end result of the 10 OPEN trap, if succesful, will be to return 
the Channel ID number to the calling program; in this case SuperBasic. This 
Channel ID is then used bu all subsequent system calls which need to access 
that device. In this way the device and the program are uniquely linked bu 
0006 . * k k k א א א % א א א א א א א א א א א‎ % 
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